home *** CD-ROM | disk | FTP | other *** search
/ Micromanía: 150 Juegos 2010 / 150Juegos_16.iso / Shareware / Juegos Flash / desertZone.dcr / Internal_104.ls < prev    next >
Encoding:
Text File  |  2003-08-01  |  1.1 KB  |  50 lines
  1. on getDynamicSlot
  2.   return member(the number of castMembers of castLib "dynamic" + 1, "dynamic")
  3. end
  4.  
  5. on Publish
  6.   repeat with i = 1 to the number of castMembers of castLib "dynamic"
  7.     member(i, "dynamic").erase()
  8.   end repeat
  9.   member("screenshot").image = image(1, 1, 32)
  10.   member("desertbg").image = image(1, 1, 32)
  11. end
  12.  
  13. on AllCaps tString
  14.   tChars = "abcdefghijklmnopqrstuvwxyz"
  15.   repeat with i = 1 to tString.char.count
  16.     if tChars contains tString.char[i] then
  17.       if charToNum(tString.char[i]) >= 97 then
  18.         return 0
  19.       end if
  20.     end if
  21.   end repeat
  22.   return 1
  23. end
  24.  
  25. on debugModus me
  26.   if the runMode contains "author" then
  27.     return 1
  28.   else
  29.     return 0
  30.   end if
  31. end
  32.  
  33. on alterWhites tMember
  34.   tImage = tMember.image
  35.   repeat with x = 0 to tImage.width - 1
  36.     repeat with y = 0 to tImage.height - 1
  37.       if tImage.getPixel(x, y) = rgb(255, 255, 255) then
  38.         tImage.setPixel(x, y, rgb(254, 255, 255))
  39.       end if
  40.     end repeat
  41.   end repeat
  42.   tMember.image = tImage
  43. end
  44.  
  45. on showAll
  46.   repeat with i = 1 to 500
  47.     sprite(i).visible = 1
  48.   end repeat
  49. end
  50.